10 DIMA$(30,2):DIMFR$(30)
20 POKE53281,0:POKE53280,2:POKE53272,23
30 A=0:B=0:CC=1
40 PRINT"[147] [158]        [214][160][197] [210] [194] [197] [206]  -[160][212][160][197][160][211][160][212]      [146]":GOSUB620:IFD$="J"THEN170
50 PRINT"[201]CH NENNE [196]IR NACHFOLGEND EINIGE"
60 PRINT"ENGLISCHE [214]ERBEN, ZU DENEN [196]U MIR"
70 PRINT"DIE ENTSPRECHENDE [199]RUNDFORM SAGST."
80 PRINT"[211]CHREIBE IMMER NACH DEM > ? < DAS"
90 PRINT"RICHTIGE [215]ORT UND DRUECKE > [210][197][212][213][210][206] < ."
100 GOSUB 600
110 PRINT"     [200][160][201][160][206][160][215][160][197][160][201][160][211][160]:[160][160][146]"
120 PRINT"   [194]EI [197]INGABE WEITERER [214]OKABELN"
130 PRINT"   BITTE IN DEN [218]EILEN > 10 <"
140 PRINT"   UND > 170 < DIE [193]NZAHL (30)"
150 PRINT"   ENTSPRECHEND ERHOEHEN!"
160 PRINT"":GOSUB600
170 FORX=1TO30:FORY=1TO2
180 READA$(X,Y):NEXTY:NEXTX
190 IFCC>X-1THEN300
200 L=INT(RND(0)*(X-1))+1
210 IFCC>1THENGOSUB670:IFDP=1THENDP=0:GOTO190
220 FR$(CC)=A$(L,1):IFCC=1THEN250
230 GETEN$:IFEN$=""THEN230
240 IFEN$="E"THENCC=CC-1:GOTO300
250 PRINT"   ";A$(L,1)
260 INPUT"[199][210][213][206][196][215][207][210][212] ";C$
270 IFC$=A$(L,2)THENGOSUB550:GOTO290
280 GOSUB580
290 CC=CC+1:GOTO190
300 PRINT"[147]       [197][206][196][197][160][196][201][197][211][197][210] [213][197][194][213][206][199]!"
310 PRINT"  [196]U HATTEST ";A;" [215]OERTER RICHTIG"
320 PRINT"  UND ";B;" [215]OERTER FALSCH."
330 C=INT((A*100)/(CC))
340 PRINT"  [196]AS SIND ";C;"% RICHTIGE [157][157][157][157][157][157][157][157][157][193]NTWORTEN."
350 IFC<20THENPRINT"     [196]AS IST [205][201][211][197][210][193][194][197][204][211][212]!!!":GOTO410
360 IFC<40THENPRINT"     [196]AS IST RECHT MAESSIG!":GOTO410
370 IFC<60THENPRINT"     [196]AS IST WENIG, UEBEN, UEBEN!":GOTO410
380 IFC<80THENPRINT"[205]IT NOCH ETWAS [213]EBUNG WIRST [196]U MAL GUT.":GOTO410
390 IFC<90THENPRINT"     [196]AS WAR SCHON GANZ GUT!":GOTO410
400 IFC>90THENPRINT"        [208][160][210][160][201][160][205][160][193] ! [146] - [215]EITER SO!"
410 GOSUB600
420 INPUT"     [206][207][195][200][160][197][201][206][160][214][197][210][211][213][195][200] ? (J/N)   J [157][157][157][157]";D$
430 IFD$<>"J"THENPRINT"     [212][211][195][200][213][197][211][211]! - [194]IS DEMNAECHST !":GOSUB630:END
440 IFD$="J"THENRESTORE:GOTO30
450 DATABEATEN,BEAT,BITTEN,BITE,BLED,BLEED,BLEW,BLOW,BROKE,BREAK,BROUGHT,BRING
460 DATABOUGHT,BUY,CAUGHT,CATCH,CAME,COME,CUT,CUT,DID,DO
470 DATADRANK,DRINK,DROVE,DRIVE,ATE,EAT,FELL,FALL
480 DATAFOUGHT,FIGHT,FOUND,FIND,FLEW,FLY,FORGOT,FORGET
490 DATAFROZE,FREEZE,GOT,GET,GAVE,GIVE,WENT,GO,GREW,GROW
500 DATAHIT,HIT
510 DATAHURT,HURT
520 DATAKEPT,KEEP
530 DATALAID,LAY
540 DATALEFT,LEAVE,LOST,LOSE
550 PRINT"               [210][201][195][200][212][201][199] !         [146]"
560 A=A+1
570 RETURN
580 PRINT:PRINT"            [204][197][201][196][197][210] [198][193][204][211][195][200] !     [146]"
590 PRINT"[196]AS RICHTIGE [215]ORT HEISST ";A$(L,2):PRINT"":B=B+1:RETURN
600 PRINT"          [194][201][212][212][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]        [146]"
610 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]":RETURN
620 PRINT" (C) 1992 "
630 PRINT"          [212][160][201][160][199][160][197][160][210] - [195][160][210][160][197][160][215]"
640 PRINT"            [198][197][204][196][211][212][210][193][211][211][197]  17"
650 PRINT"             36391 [211][201][206][206][212][193][204]"
660 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]":RETURN
670 FORSU=1TO(CC):IFFR$(SU)=A$(L,1)THENSU=CC:DP=1
680 NEXT
690 RETURN